home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / JORF21-2.ZIP;1 / JORFFILS.ZIP / TEXT.J < prev    next >
Encoding:
Text File  |  1993-07-05  |  1.2 KB  |  39 lines
  1. Text:Start
  2.   | Sample for Text Functions
  3.   Text:Sample()
  4.     This text was passed to
  5.     to a method because:
  6.     a) The method call
  7.        needed a parameter
  8.     b) The text was indented
  9.   Return(Ok)
  10.  
  11. Text:Sample (Text)
  12.   Win:Add ( Null, 2, 2, 0, 0, Here, Text)
  13.   Win:Add ( Null, -2, -2, 13, 50, Here)
  14.  
  15.   Str:PutLine( "Text      = " + Text )
  16.   Str:PutLine( "Text:Len  = " + Text:Len ( Text ) )
  17.   Str:PutLine( "Text:Wid  = " + Text:Wid ( Text ) )
  18.   Str:PutLine( "Text:Top  = " + Text:Top ( Text ) )
  19.   Str:PutLine( "Text:Bot  = " + Text:Bot ( Text ) )
  20.  
  21.   Str:PutLine()
  22.   Text = Text:Next ( Text )
  23.   Str:PutLine("Text:Next = Line "+Text:Pos(Text)+" - "+Text)
  24.   Text = Text:Next ( Text )
  25.   Str:PutLine("Text:Next = Line "+Text:Pos(Text)+" - "+Text)
  26.   Text = Text:Next ( Text )
  27.   Str:PutLine("Text:Next = Line "+Text:Pos(Text)+" - "+Text)
  28.   Text = Text:Next ( Text )
  29.   Str:PutLine("Text:Next = Line "+Text:Pos(Text)+" - "+Text)
  30.  
  31.   Str:PutLine()
  32.   Text = Text:Prev ( Text )
  33.   Str:PutLine("Text:Prev = Line "+Text:Pos(Text)+" - "+Text)
  34.   Text = Text:Prev ( Text )
  35.   Str:PutLine("Text:Prev = Line "+Text:Pos(Text)+" - "+Text)
  36.   Win:Pause()
  37.   Return(Ok)
  38.  
  39.